/PROG  MOV_HOME	  Macro
/ATTR
OWNER		= MNEDITOR;
COMMENT		= "MOVE TO HOME   ";
PROG_SIZE	= 730;
CREATE		= DATE 94-09-07  TIME 15:27:46;
MODIFIED	= DATE 09-12-24  TIME 00:10:56;
FILE_NAME	= ;
VERSION		= 0;
LINE_COUNT	= 19;
MEMORY_SIZE	= 1042;
PROTECT		= READ;
TCD:  STACK_SIZE	= 0,
      TASK_PRIORITY	= 50,
      TIME_SLICE	= 0,
      BUSY_LAMP_OFF	= 0,
      ABORT_REQUEST	= 0,
      PAUSE_REQUEST	= 0;
DEFAULT_GROUP	= 1,*,*,*,*;
CONTROL_CODE	= 00000000 00000000;
/APPL
  ARC : TRUE ; 
/MN
   1:  !******************************* ;
   2:  !MACRO   MOVE TO HOME ;
   3:  !******************************* ;
   4:  !GET_HOME - Copies the specified  ;
   5:  !REFPOS for the specified group ;
   6:  !into PR[1]. ;
   7:  !The calling sequence is: ;
   8:  !GET_HOME([refpos_number], ;
   9:  !         [group_no]) ;
  10:  !If parameters are not specified ;
  11:  !the default values are REFPOS1  ;
  12:  !and group 1 ;
  13:  CALL GET_HOME    ;
  14:   ;
  15:  !********* Please Note ********* ;
  16:  !GET_HOME copied REFPOS1 ;
  17:  !into PR[1] ;
  18:J PR[1:Home Position] 50% FINE    ;
  19:  CALL HOME_IO    ;
/POS
/END
